0 A$="489848A505D00CAD0902C9A5D014A9388D0902E605A505A8B928048DDF02D002850568A8"
1 FORI=1TO99:POKEI+#3FF,VAL("#"+MID$(A$+"684C22EE",I*2-1,2)):NEXT:DOKE581,#400